7) Sortirati kolone matrice



Sub zad7()
Dim a(100, 100) As Double, i As Long, j As Long, k As Long, pom As Double
m = Cells(1, 1)
n = Cells(1, 2)
For i = 1 To m
 For j = 1 To n
 a(i, j) = Cells(i + 1, j)
 Next
 Next
For j = 1 To n
 For i = 1 To m - 1
  For k = i + 1 To m
  If a(i, j) < a(k, j) Then
  pom = a(i, j)
  a(i, j) = a(k, j)
  a(k, j) = pom
  End If
  Next
  Next
  Next
  For i = 1 To m
   For j = 1 To n
   Cells(i + 1, j) = a(i, j)
  Next
  Next
End Sub